(gdb-set-gud-minor-mode-existing-buffers):

GDB 6.1+ gives full filename for "info sources" so use
file-name-nondirectory.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 244570170faa7198533a8edd513a3491b6e9028f..d6854d091fe095b128ca2ece47aee4b3bd61eacf 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -417,7 +417,8 @@ With arg, use separate IO iff arg is positive."
   (goto-char (point-min))
   (when (search-forward "read in on demand:" nil t)
     (while (re-search-forward gdb-source-file-regexp nil t)
-      (push (or (match-string 1) (match-string 2)) gdb-source-file-list))
+      (push (file-name-nondirectory (or (match-string 1) (match-string 2)))
+           gdb-source-file-list))
     (dolist (buffer (buffer-list))
       (with-current-buffer buffer
        (when (and buffer-file-name